home *** CD-ROM | disk | FTP | other *** search
/ Software USA 4 #8 / Software USA Volume 4.08.iso / mac / LifeStyles / ComicBase / ComicBase.sea / ComicBase 3 Mac Demo / ComicBase 3 Demo.rsrc / LENS_136_Issue Selection < prev    next >
Text File  |  1998-02-04  |  5KB  |  90 lines
  1. ItemType: WIND
  2. Rect: 297,242,727,526
  3. Style: Dialog
  4. HasTitleBar: TRUE
  5. HasZoomBox: FALSE
  6. Name: Issue Selection
  7. WhiteColor: -8739,-8739,-8739
  8. Script: --on windowEvent  wdID,wdName,objNo,objName,objValue¬¬Global selectedTitles,  printListIssueNums, selectedTitlesIndex¬Global titlesCardNumList¬global gWindowPositions¬¬---------------------¬-- This is window #14¬---------------------¬¬if objValue="Open" then ¬  -- Restore old window position¬  put OldWindowPosition(14) into windowRect¬  if windowRect = empty then centerWindow wdName¬  else wsSet wdID,"0","Rect",windowRect¬  ¬  -- Clear out the print list¬  put empty into printListIssueNums -- the list of issue indexes¬  put empty into titlesCardNumList -- list of card numbers corresponding to the issues¬  put empty into selectedTitlesIndex¬  ¬  get "PrintList_Text:" & return¬  wsSet wdId,"Properties",it¬  ¬else if objValue="Close" then ¬  -- save the window position¬  put "14" & tab & wdName & tab & wsGet(wdID,"0","Rect") into line 14 of gWindowPositions¬  ¬else if objValue="Suspend" then ¬  ¬else if objValue="Resume" then ¬  ¬else if objValue="CloseBox" then ¬  ¬else if objValue="ZoomBox" then ¬  ¬else if objValue="GrowBox" then ¬  ¬else if objValue="TitleBar" then ¬  ¬end if¬¬--end windowEvent¬¬
  9. Result: i3_TextOfSelection¬i15_Text
  10.  
  11. ItemType: PUSH
  12. Rect: 330,126,410,146
  13. AutoSize: FALSE
  14. Disabled: TRUE
  15. Name: OK
  16. AutoClose: TRUE
  17. Balloon: Click here to save your save the list of comics to be printed.
  18. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬global gPrintList¬put wsGet(wdID,"PrintList","Text") into gPrintList¬--end mouseUp¬¬¬¬¬¬¬
  19.  
  20. ItemType: PUSH
  21. Rect: 330,153,410,173
  22. AutoSize: FALSE
  23. Name: Cancel
  24. CancelItem: TRUE
  25. AutoClose: TRUE
  26. Balloon: Click here to exit without saving the list of comics to be printed.
  27. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬¬Global selectedTitles, printListIssueNums, selectedTitlesIndex¬Global titlesCardNumList¬¬-- Clear out the print list¬put empty into printListIssueNums -- the list of issue indexes¬put empty into titlesCardNumList -- list of card numbers corresponding to the issues¬put empty into selectedTitlesIndex¬--end mouseUp¬
  28.  
  29. ItemType: TEXT
  30. Rect: 14,5,119,21
  31. WhiteColor: -8739,-8739,-8739
  32. Text: Issues to print:
  33.  
  34. ItemType: TEXT
  35. Rect: 241,106,306,123
  36. TextFont: Geneva
  37. TextSize: 10
  38. AutoSize: FALSE
  39. Visible: FALSE
  40. Name: ModifyDate
  41. LockText: FALSE
  42. Text: 7/21/92
  43. Script: --on closeField  wdID,wdName,objNo,objName,objValue¬get objValue¬convert it to date¬if the result <> empty then put empty into it¬wsSet wdID,objNo,"Text",it¬--end closeField
  44.  
  45. ItemType: LIST
  46. Rect: 11,25,308,274
  47. TextFont: Geneva
  48. TextSize: 10
  49. Name: PrintList
  50. Style: ListWithTabs...
  51. StyleInfo: ................................<
  52. KeyScroll: TRUE
  53. Text: 
  54. Balloon: This is the list of the issues (and # of copies) you are about to print.
  55. Script: --on mouseDown  wdID,wdName,objNo,objName,objValue¬if wsGet(wdID,"PrintList","TextOfSelection") ≠ empty then ¬  wsSet wdID,"Remove","Disabled", "FALSE"¬  wsSet wdID,"Copies…","Disabled", "FALSE"¬else¬  wsSet wdID,"Remove","Disabled", "true"¬  wsSet wdID,"Copies…","Disabled", "true"¬end if¬¬¬--end mouseDown
  56.  
  57. ItemType: LINE
  58. Rect: 330,116,410,117
  59. AutoSize: FALSE
  60. WhiteColor: -26215,-26215,-26215
  61. Pen: White
  62.  
  63. ItemType: PUSH
  64. Rect: 330,31,410,51
  65. AutoSize: FALSE
  66. Name: Add…
  67. DefaultItem: TRUE
  68. Balloon: Click here to add issues to the list to be printed.
  69. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬send AddToPrintList to cd btn "AddToPrintList" of cd 3¬--end mouseUp¬
  70.  
  71. ItemType: PUSH
  72. Rect: 330,61,410,81
  73. AutoSize: FALSE
  74. Disabled: TRUE
  75. Name: Remove
  76. Balloon: Select an issue from the list to the left, then click here to remove it from the list of issues to be printed.
  77. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬send RemoveFromPrintList to cd 1 of bg "Title"¬--end mouseUp
  78.  
  79. ItemType: PUSH
  80. Rect: 330,88,410,108
  81. AutoSize: FALSE
  82. Disabled: TRUE
  83. Name: Copies…
  84. Balloon: Click here to set the number of copies of  to be printed for the selected issue. ¬¬Usually, this is set to the number of copies you have in stock for the selected issue.
  85. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue¬--EditCopies¬put wsGet("Issue Selection","PrintList","Selection") into theSelection¬put wsGet("Issue Selection","PrintList","Text") into previousPrintList¬¬repeat with x = 1 to (the number of items of theSelection)¬  put line (item X of theSelection) of previousPrintList into theIssue¬  set the itemDelimiter to tab¬  put last item of theIssue into numCopies¬  put item 1 of theIssue into issueName¬  delete last item of theIssue¬  set the itemDelimiter to comma¬  Get WindowScript("Copies",numCopies,issueName)¬  if it = empty then exit repeat¬  else¬    put line 2 of it into it¬    if it > 0 then¬      put it into numCopies¬      put theIssue & tab & numCopies into line (item X of theSelection) of previousPrintList¬    end if¬  end if¬end repeat¬¬wsSet "Issue Selection","PrintList","Text", previousPrintList¬wsSet "Issue Selection","PrintList","Selection", theSelection¬wsSend "Issue Selection","0","BringToFront"¬wsSend "Issue Selection","0","DoUpdate"¬--end mouseUp¬
  86.  
  87. ItemType: LINE
  88. Rect: 330,117,410,118
  89. AutoSize: FALSE
  90. Pen: White